diff options
| author | Anton Šijanec <sijanecantonluka@gmail.com> | 2020-03-30 15:24:15 +0200 |
|---|---|---|
| committer | Anton Šijanec <sijanecantonluka@gmail.com> | 2020-03-30 15:24:15 +0200 |
| commit | 37fc0b25d852dba0ce7a329678c5c30a028be00f (patch) | |
| tree | 80e58fb4000efc4fcf3f7afccbda0f4a6a48f93b /ICH.FOR | |
| download | ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.gz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.bz2 ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.lz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.xz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.zst ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.zip | |
Diffstat (limited to 'ICH.FOR')
| -rw-r--r-- | ICH.FOR | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -0,0 +1,15 @@ + SUBROUTINE ICH(CH,IZV,N) + CHARACTER CH(10)*40 + DIMENSION IZV(1) + CALL PKURZ(3,32,IND) + WRITE(*,1) +1 FORMAT('Vr Zv') + DO 10 I=1,N + II=2*I+3 + CALL PKURZ(II,22,IND) + WRITE(*,5)I,IZV(I),CH(I) +5 FORMAT(10X,I2,'. ',I2,1X,A40) +10 CONTINUE + RETURN + END + |